100 PRINT"[147]";:POKE53272,23:POKE53280,0:POKE53281,0:C=0
101 PRINT"[156]          [215][200][195] [197]NTERPRISES":GOSUB591
102 PRINT"[159]                                        [146]";
103 PRINT"                                        [146]";
104 PRINT"         [205]C[196]ONALD [197]NGLISH [211]ERIES        [146]";
105 PRINT"[159]                                        [146]";
106 PRINT"                                        [146]";
107 PRINT"               [215][207][210][196][160] [213][211][193][199][197]              [146]";
108 PRINT"[159]                                        [146]";
109 PRINT"                                        [146]";
110 PRINT"            BETWEEN >< AMONG            [146]";
111 PRINT"[159]                                        [146]";
112 PRINT"[159]                                        [146]":GOSUB235
150 PRINT"[159][147] [215]HAT IS YOUR NAME?   "
152 INPUT N$
154 IF N$=""THEN152
156 GOSUB590
158 PRINT" [201]NSTRUCTIONS?  [217]/[206]
160 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[175]R$[179][177]"(null)"[175]R$[179][177]"(null)"[167]160
162 [139]R$[178]"Y"[167][137]400
163 [139]R$[178]"(null)"[167][137]400
190 [153]"OPENLOAD AND AWAY WE GO, "N$".":[141]591:[141]500:[141]590
192 [137]1000
235 [141]591:[141]560
236 [153]"CONT (null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO CONTINUE WAITLIST"
237 [161]U$:[139]U$[179][177][199](32)[167]237
238 [142]
240 [141]592:[141]560
242 [153]"CONT    >>>> (null)(null)ATNLENVAL PEEKATN(null) <<<<   "
244 [161]U$:[139]U$[179][177][199](32)[167]244
246 [153]"ON                                       "
248 [142]
299 :
400 [153]"LOAD              RIGHT$NSTRUCTIONS            OPEN
402 PRINT" [212]HIS IS A WORD GAME FOR GRADE 3, 4,     AND 5 PUPILS."
404 PRINT" [201]T WILL HELP YOU WITH YOUR SPELLING.
406 [153]" (null)OUR TASK IS TO SELECT SYSBETWEEN
408 PRINT" OR [158]AMONG IN A FEW SENTENCES.
414 [153]"OPEN ATNFTER YOU TYPE IN THE WORD, PRESS        (null)VAL(null)(null)(null)(null) WAIT":[141]235
416 [153]"LOADOPEN     (null)OW, LET'S LOOK AT SOME HINTS."
418 [141]235:[137]600
499 :
500 [143] <YES>
505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
510 [151]54296,15:[151]54277,42:[151]54278,250
515 [151]54276,23:[151]54273,23:[151]54272,191
520 [129]TM[178]1[164]150:[130]:[151]54276,32:[129]TM[178]1[164]200:[130]
525 [151]54296,0:[142]
530 [143] <NO>
535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
540 [151]54296,15:[151]54277,18:[151]54278,242
545 [151]54276,33:[151]54273,4:[151]54272,48
550 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
555 [151]54296,0:[142]
560 [143] <BLIP>
565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
570 [151]54296,7:[151]54277,42:[151]54278,250
575 [151]54276,23:[151]54273,23:[151]54272,191
580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
585 [151]54296,0:[142]
590 [129]TM[178]1[164]500:[130]:[142]
591 [129]TM[178]1[164]1000:[130]:[142]
592 [129]TM[178]1[164]2000:[130]:[142]
593 [129]TM[178]1[164]3000:[130]:[142]
600 [153]"LOAD       (null)OME LEN(null)(null)VAL(null).......
605 PRINT"[158] [194]ETWEEN[159] AND [158]ANMONG[159] ARE COMMONLY         MISUSED.
610 [153]"PRINT         **** (null)VAL(null)VAL(null)PEEKVAL(null) ****
620 PRINT" [158][194]ETWEEN[159]IS USED TO REFER TO [212][215][207]
625 [153]" PEOPLE, PLACES, THINGS OR EVENTS.
630 PRINT" [158][193]MONG[159] IS USED TO REFER TO [212][200][210][197][197]         OR [205][207][210][197]."
690 GOSUB235
695 GOTO190
999 :
1000 PRINT"[147]";:RESTORE:POKE53281,0:POKE53280,0
1005 P=1:C=15:H=0
1010 FORJ=1TOC
1015 READA$,B$,C$,D$
1020 PRINT"[152][147] [197][196]-48 [197]X-8 [156]"TAB(14)""N$,TAB(29)"[155][211]TEP:"P""
1025 PRINT""
1030 PRINT"[158]>>> [159]";A$;"
1035 [153]"    (null)ELECT THE CORRECT WORD FOR THIS        SENTENCE.
1037 PRINT"            "B$
1038 PRINT"            "C$
1040 GOSUB560:INPUT"[158]>>>> ";SK$
1045 IFSK$=D$THEN1090
1050 PRINT"[150]                  [206][207]                    [159]":GOSUB530:GOSUB591
1055 PRINT"[150] [212]HE ANSWER IS [158]"D$:H=H+1:GOSUB560:GOSUB560:GOSUB591
1070 GOSUB240:GOTO1095
1090 PRINT"                   [217][197][211]!                 [159][146]":GOSUB500:GOSUB591
1095 P=P+1:NEXT J
1999 :
2000 PRINT"[159][147][217]OU HAVE NOW COMPLETED [197]XERCISE 8.":GOSUB560:GOSUB591
2005 PRINT"[153][217]OU HAVE ANSWERED"C"QUESTIONS":GOSUB591
2007 IFH=0THEN2020
2010 IF H=1THENPRINT"[150][217]OU MADE ONLY ONE BLOOPER.":GOSUB530:GOTO2025
2012 PRINT"[150][217]OU MADE"H"BLOOPERS.":GOSUB530:GOTO2030
2020 IFH=0THENPRINT"[158]                [197][216][195][197][204][204][197][206][212]!              [146]":GOTO2035
2025 IFH=1THENPRINT"[159]              [199]OOD [215]ORK!                [146]":GOTO2035
2030 PRINT"[150]       [212]RY HARDER!  [196]O IT AGAIN!        [146]"
2035 PRINT"":GOSUB235
2050 PRINT"[153][147][217]OU HAVE A CHOICE:
2052 [153]"(null)RESS  (null) WAIT TO REPEAT VALXERCISE 8
2054 PRINT"[208]RESS  [199] [146] TO GO TO [197]XERCISE 9
2056 [153]"(null)RESS  (null) WAIT TO GO TO DISK MENU
2060 GETR$:IFR$<>"R"ANDR$<>"[210]"ANDR$<>"G"ANDR$<>"[199]"ANDR$<>"M"ANDR$<>"[205]"THEN2060
2062 IFR$="R"THENRESTORE:GOTO100
2064 IFR$="[210]"THENRESTORE:GOTO100
2066 IFR$="G"THENRESTORE:GOTO2080
2068 IFR$="[199]"THENRESTORE:GOTO2080
2070 PRINT"[147] [210]ETURNING TO THE DISK [205][197][206][213]
2072 [147]"MENU",8
2074 [138]
2076 [128]
2080 [153]"LOAD (null)OADING VALXERCISE 9
2082 LOAD"EXERCISE 9",8
2084 RUN
2086 END
2099 :
2100 REM THE GUTS OF THE UNIT
2110 DATA"[212]HERE WAS A DUCK [158]....[159] A GAGGLE OF       GEESE."
2112 DATA"BETWEEN","AMONG","AMONG"
2115 DATA"[193] HAMMER LAY [158]....[159] THE PAIR OF SHOES.
2117 [131]"BETWEEN","AMONG","BETWEEN"
2120 [131]"(null)HERE WAS A MOOSE SYS....OPEN THE HERD         OF COWS.
2122 DATA"BETWEEN","AMONG","AMONG"
2125 DATA"[212]HE CHORES WILL BE SHARED [158]....[159]          BOTH OF US."
2127 DATA"BETWEEN","AMONG","BETWEEN"
2130 DATA"[205]Y LITTLE DINGHY DRIFTED [158]....[159] A         GAM OF WHALES.
2132 [131]"BETWEEN","AMONG","AMONG"
2135 [131]"MID$OE AND (null)OM STOOD SYS....OPEN A SWARM          OF BEES."
2137 [131]"BETWEEN","AMONG","AMONG"
2140 [131]"(null)HERE WERE POLICEMEN SYS....OPEN THE           CROWD OF PROTESTERS."
2142 [131]"BETWEEN","AMONG","AMONG"
2145 [131]"(null)E CAMPED SYS....OPEN FIVE OF OUR              FRIENDS.
2147 DATA"BETWEEN","AMONG","AMONG"
2150 DATA"[201] SAT [158]....[159] THE TWINS."
2152 DATA"BETWEEN","AMONG","BETWEEN"
2155 DATA"[210]OBERTA WILL SHARE HER CANDY [158]....[159]       ALL OF YOU.
2157 [131]"BETWEEN","AMONG","AMONG"
2160 [131]"(null)Y CAT, CHR$ARFIELD, WAS ASLEEP SYS....OPEN       A FLOCK OF BIRDS,"
2162 [131]"BETWEEN","AMONG","AMONG"
2165 [131]"(null)HERE WAS A LITTLE MOUSE SYS....OPEN A         CLOWDER OF CATS."
2167 [131]"BETWEEN","AMONG","AMONG"
2170 [131]"(null)HEY WERE TRAPPED SYS....OPEN A VAST           ARMY OF RED ANTS."
2172 [131]"BETWEEN","AMONG","AMONG"
2175 [131]"(null)HE BALL DROPPED SYS....OPEN A COUPLE          OF CHILDREN."
2177 [131]"BETWEEN","AMONG","BETWEEN"
2180 [131]"(null)HE TOURISTS FOUND THEMSELVES            SYS....OPEN A PRIDE OF LIONS."
2182 [131]"BETWEEN","AMONG","AMONG"
2199 :
3000 [143] WH CUMBERLAND 93:04:20